VERSION 5.00
Begin VB.Form frmFullScreen 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   ClientHeight    =   3090
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   Icon            =   "frmFullScreen.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   206
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   312
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.PictureBox picScreen 
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   1185
      Left            =   330
      ScaleHeight     =   79
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   193
      TabIndex        =   0
      Top             =   570
      Width           =   2895
   End
End
Attribute VB_Name = "frmFullScreen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()

  picScreen.height = 0
  picScreen.Width = 0

  Do
    picScreen.Width = picScreen.Width + 1
  Loop Until picScreen.ScaleWidth = 256

  Do
    picScreen.height = picScreen.height + 1
  Loop Until picScreen.ScaleHeight = 192

  Do
    picScreen.height = picScreen.height + 1
    picScreen.Width = picScreen.Width + 1
  Loop Until picScreen.height = Me.ScaleHeight Or picScreen.Width = Me.ScaleWidth

  If Not IsScale(picScreen.ScaleWidth) Then
    Do
      picScreen.height = picScreen.height - 1
      picScreen.Width = picScreen.Width - 1
    Loop Until IsScale(picScreen.ScaleWidth)
  End If

  Call Form_Resize

  IsFullScreen = True

  Call Me.Show

End Sub
Private Sub Form_Load()

  Call Me.Hide

End Sub
Private Sub Form_Paint()
  If Pausing = True Then
    DoEvents
    Call blitscreen
  End If
End Sub


Private Sub Form_Resize()
  picScreen.Left = Me.ScaleWidth / 2 - picScreen.Width / 2
  picScreen.Top = Me.ScaleHeight / 2 - picScreen.height / 2
End Sub

Private Sub Form_Unload(Cancel As Integer)
  IsFullScreen = False
End Sub


Private Sub picScreen_KeyDown(KeyCode As Integer, Shift As Integer)

  Call frmSMS.picScreen_KeyDown(KeyCode%, Shift%)

End Sub


Private Sub picScreen_KeyUp(KeyCode As Integer, Shift As Integer)

  Call frmSMS.picScreen_KeyUp(KeyCode%, Shift%)

End Sub


